home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / los.s < prev    next >
Text File  |  1997-01-31  |  722b  |  75 lines
  1. VALS:
  2.  dc.w 0
  3. ;2
  4.  dc.w 0
  5. ;4
  6.  dc.w 0
  7. ;6
  8.  dc.w 0
  9. ;8
  10.  dc.l 0
  11. ;12
  12.  dc.w 0
  13. ;14
  14.  
  15. START:
  16.  lea VALS(pc),a0
  17.  move.w (a0),d0
  18.  move.w 2(a0),d1
  19.  move.w 4(a0),d2
  20.  move.w 6(a0),d3
  21.  
  22.  move.l 8(a0),a1
  23.  
  24.  sub.w d0,d2    ;dx
  25.  bne.s .okzer
  26.  
  27.  cmp.w d1,d3
  28.  beq nothingin
  29.  
  30. .okzer
  31.  sub.w d1,d3     ;dy
  32.  
  33.  move.w d2,d4
  34.  bge.s .okpos1
  35.  neg.w d4
  36. .okpos1:
  37.  
  38.  move.w d3,d5
  39.  bge.s .okpos2
  40.  neg.w d5
  41. .okpos2:
  42.  
  43.  cmp.w d4,d5
  44.  bge.s YBIG
  45.  
  46. XBIG:
  47.  move.w d4,d5
  48. YBIG:
  49.  move.w d5,d7
  50.  move.w d5,d6
  51.  
  52. checkthing:
  53.  move.w d2,d4
  54.  move.w d3,d5
  55.  muls d7,d4
  56.  muls d7,d5
  57.  divs d6,d4
  58.  divs d6,d5
  59.  add.w d0,d4
  60.  add.w d1,d5
  61.  asl.w #5,d5
  62.  add.w d4,d5
  63.  tst.b (a1,d5.w)
  64.  bne.s somethingin
  65.  
  66.  dbra d7,checkthing
  67.  
  68.  nothingin:
  69.  st 12(a0)
  70.  rts
  71.  
  72. somethingin: 
  73.  clr.b 12(a0)
  74.  rts
  75.